home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / windownt / perlnt.zip / t / diffnt.cmd next >
OS/2 REXX Batch file  |  1993-07-25  |  340b  |  20 lines
  1. @rem = '-*- Perl -*-';
  2. @rem = '
  3. @echo off
  4. perl -S %0.cmd %1 %2 %3 %4 %5 %6 %7 %8 %9
  5. goto endofperl
  6. ';
  7.  
  8. @tests = <base/*.nt cmd/*.nt comp/*.nt io/*.nt lib/*.nt op/*.nt>;
  9.  
  10. $| = 1;
  11. foreach $test (@tests) {
  12.     $old = $test;
  13.     $old =~ s/\.nt$/\.t/;
  14.     print "diff $old $test\n";
  15.     system "diff -c $old $test";
  16. }
  17. __END__
  18. :endofperl
  19.  
  20.